home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
FILES.SWG
/
0028_Check for file EXIST.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
634b
|
17 lines
{*****************************************************************************
* Function ...... Exist()
* Purpose ....... Checks for the existance of a file/directory
* Parameters .... sExp File/directory name to check for
* Returns ....... TRUE if sExp exists
* Notes ......... Not picky, will even accept wild cards
* Author ........ Martin Richardson
* Date .......... May 13, 1992
*****************************************************************************}
FUNCTION Exist( sExp: STRING ): BOOLEAN;
VAR s : SearchRec;
BEGIN
FINDFIRST( sExp, AnyFile, s );
Exist := (DOSError = 0);
END;